home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / os2 / pvm34b3.zip / pvm34b3 / pvm3 / libfpvm / WIN32 / Pvmfgettid.c < prev    next >
C/C++ Source or Header  |  1997-07-22  |  808b  |  44 lines
  1.  
  2. /* $Id: Pvmfgettid.c,v 1.1 1997/06/27 16:24:51 pvmsrc Exp $ */
  3.  
  4. #ifdef WIN32
  5. #include "..\..\include\pvm3.h"
  6. #include "..\..\src\pvmwin.h"
  7. #else 
  8. #include "pvm3.h"
  9. #endif
  10.  
  11. #include "pvm_consts.h"
  12.  
  13. #ifdef __WATCOMC__
  14. #include "watforstr.h"
  15. void __fortran
  16. PVMFGETTID (group_str, inum, tid)
  17. WatcomFortranStr* group_str;
  18. int *inum, *tid;
  19. {
  20.    char* group_ptr = group_str->strP;
  21.    int   group_len = group_str->len;
  22. #else
  23. void __stdcall
  24. PVMFGETTID (group_ptr,group_len, inum, tid)
  25. char * group_ptr; int group_len;
  26. int *inum, *tid;
  27. {
  28. #endif
  29.    
  30.    char tgroup[MAX_GRP_NAME + 1];
  31.  
  32.    /*
  33.     * Copy the group name to make sure there's
  34.     * a NUL at the end.
  35.     */
  36.    if (ftocstr(tgroup, sizeof(tgroup), group_ptr, group_len)){
  37.       *tid = PvmBadParam;
  38.       return;
  39.    }
  40.  
  41.    *tid = pvm_gettid(tgroup, *inum);
  42. }
  43.  
  44.